HP Idea Kits: Let's Celebrate/PHOTODLX.ISO/extras/diamar/photo.dxr/00011_style 08,108,27,28,29,30,31.ls

Text File | 1996-04-22 | 2.3 KB | 127 lines

on initStyle027
  initStyle008()
end

on exitStyle027
  exitStyle008()
end

on initStyle028
  initStyle008()
end

on exitStyle028
  exitStyle008()
end

on initStyle029
  initStyle008()
end

on exitStyle029
  exitStyle008()
end

on initStyle030
  initStyle008()
end

on exitStyle030
  exitStyle008()
end

on initStyle031
  initStyle008()
end

on exitStyle031
  exitStyle008()
end

on initStyle108
  initStyle008()
end

on exitStyle108
  exitStyle008()
end

on initStyle008
  global gCurrentText, gScreenList, gSpriteNumber
  set gCurrentText to 0
  set gSpriteNumber to 0
  paletteSwap()
  puppetState(2, 11, 1)
  puppetState(21, 40, 1)
  puppetState(44, 47, 1)
  replaceSprite(9, 9, 1)
  replaceSprite(10, 11, 2)
  soundMoreText()
  replaceSprite(2, 7, 2)
  positionHyperLink()
  set the mouseDownScript to "style008MouseDown"
  set the mouseUpScript to "style008MouseUp"
  preLoadScreenData()
  cursor(-1)
end

on exitStyle008
  global gJumpToScreen
  puppetState(2, 11, 0)
  puppetState(21, 40, 0)
  puppetState(44, 47, 0)
  loadScreenData(gJumpToScreen)
end

on style008MouseDown
  global gSpriteNumber, gValid
  set gValid to 1
  set gSpriteNumber to the clickOn
  if soundBusy(1) and SoundInterrupt(8, gSpriteNumber) then
    sound stop 1
  end if
  if (gSpriteNumber >= 2) and (gSpriteNumber < 9) then
    upDownToggle()
  else
    if (gSpriteNumber >= 27) and (gSpriteNumber <= 48) then
      upDownToggle()
    end if
  end if
end

on style008MouseUp
  global gSpriteNumber, gValid, gActivePopUp
  if (gValid = 0) and (gSpriteNumber <> 24) and (gSpriteNumber <> 25) then
    exit
  end if
  if ((gSpriteNumber >= 2) and (gSpriteNumber <= 4)) or (gSpriteNumber = 8) then
    set gActivePopUp to gSpriteNumber
    popUpMenu(1)
  else
    if (gSpriteNumber = 5) or (gSpriteNumber = 7) then
      jumpButton()
      exit
    else
      if gSpriteNumber = 6 then
        quitDialogBox(1)
      else
        if gSpriteNumber = 9 then
          nothing()
        else
          if (gSpriteNumber = 24) or (gSpriteNumber = 25) then
            hyperLink()
          else
            if gSpriteNumber = 27 then
              narration()
            else
              if gSpriteNumber = 28 then
                moreTextButton()
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end